home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Languguage OS 2
/
Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO
/
language
/
sapporo
/
use-emac
< prev
Wrap
Lisp/Scheme
|
1994-10-24
|
3KB
|
94 lines
(setq mail-archive-file-name "~/Mail/posted-mail")
; save after 1000 characters
(setq auto-save-interval 100)
; fill mode in text files
(setq default-fill-column 80)
;sets den default mode
;(setq default-major-mode 'edt-emulation-on)
;(setq text-mode-hook
; '(lambda ()
; (turn-on-auto-fill)))
; for posting news in gnus
;(load "/usr/local/lib/emacs/lisp/nntp")
;(autoload 'gnus "/usr/local/lib/emacs/lisp/gnus" "Read network news." t)
;(autoload 'gnus-post-news "/usr/local/lib/emacs/lisp/gnus" "Post news." t)
;(global-unset-key "\C-[[")
;(global-set-key "\C-[[-" 'backward-page)
(setq auto-raise-screen nil)
(display-time)
(put 'eval-expression 'disabled nil)
(setq sun-esc-brackets t)
; ===============
; emacs init file
; ===============
; give a meaning to the keys around the cursor keys
(global-unset-key "\M-[")
(global-set-key "\M-\[214z" 'beginning-of-line)
(global-set-key "\M-\[220z" 'end-of-line)
(global-set-key "\M-\[222z" 'scroll-up)
(global-set-key "\M-\[216z" 'scroll-down)
(global-set-key "\M-\[218z" 'set-mark-command)
; declare [] as brackets
; does only work if .emacs is loaded once more via load-file
(modify-syntax-entry ?\[ "(]" lisp-mode-syntax-table)
(modify-syntax-entry ?\] ")[" lisp-mode-syntax-table)
(global-unset-key "\C-[[")
(global-set-key "\C-[[-1z" 'make-calendar-window)
(global-set-key "\C-[[-14z" 'query-replace)
;***********************************************
;; Load the Franz Emacs-Lisp Interface.
(load "fi/site-init")
;; Default args for fi:common-lisp.
;; Change these to match your specific setup.
(setq fi:common-lisp-buffer-name "*clim-buffer*") ;; the default is "*common-lisp*"
;; Instead we set it to a specific directory.
(setq fi:common-lisp-directory (expand-file-name "/disk/ROBOT1S4-1H/TEuR/demos/Sapporo-April-93/"))
(setq fi:common-lisp-image-name "/tools/allegro41/bin/clim")
(setq fi:common-lisp-image-arguments nil)
(setq fi:common-lisp-host "goldfinger")
(defun run-common-lisp ()
"This function starts up lisp with your defaults"
(interactive)
(fi:common-lisp fi:common-lisp-buffer-name
fi:common-lisp-directory
fi:common-lisp-image-name
fi:common-lisp-image-arguments
fi:common-lisp-host))
;; Set up a keybinding for mycl.
(setq ctlx-3-map (make-keymap))
(define-key ctl-x-map "3" ctlx-3-map)
(define-key ctlx-3-map "l" 'mycl)
;; If you don't want to do the above, then this binding go to the
;; *common-lisp* buffer, causing the image to be run the first time it is
;; typed.
(define-key global-map "\C-xl" 'fi:common-lisp)
(define-key global-map "\C-cb" 'fi:lisp-compile-current-buffer)
(define-key global-map "\C-cd" 'fi:lisp-compile-defun)
;; Start up a lisp image.
;(clim-buffer)